iT邦幫忙

2021 iThome 鐵人賽

DAY 18
0
影片教學

R語言-分群(clustering)的實戰應用系列 第 18

[Day-18] R語言 - 分群應用(一) k - prototype類別補值 - 上 ( Fill.NA with k - prototype in R.Studio )

  • 分享至 

  • xImage
  •  

您的訂閱是我製作影片的動力
訂閱點這裡~/images/emoticon/emoticon39.gif

Yes

影片程式碼

## 應用一: 分群補值(數值+類別) ####
library(missForest) #產生隨機na值
library(naniar) #chk na
library(dplyr)
#前置(無標準化) na補值簡介
data(iris)
iris <- prodNA(iris, noNA = 0.01) # 產生1% na值
any_na(iris)

colnms <- colnames(iris)
iris_na <- filter_at(iris,vars(starts_with(colnms)), any_vars(is.na(.)))
# any_vars 任一即挑出,all_vars 全部才挑出

iris_no_na <- iris[complete.cases(iris), ]
any_na(iris_no_na)

#演算法
library(clustMixType)
kp <- kproto(iris, 4)
kp$withinss
kp_out <- as.data.frame(kp$cluster) #大好
names(kp_out)[names(kp_out)=="kp$cluster"]="分群"
final <- cbind(iris_no_na,kp_out)

若內容有誤,還請留言指正,謝謝您的指教/images/emoticon/emoticon07.gif


上一篇
[Day-17] R語言 - 分群應用(一) GMM數值補值-下 ( Fill.NA with GMM in R.Studio )
下一篇
[Day-19] R語言 - 分群應用(一) k - prototype類別補值 - 下 ( Fill.NA with k - prototype in R.Studio )
系列文
R語言-分群(clustering)的實戰應用30
圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中

尚未有邦友留言

立即登入留言